home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
util
/
misc
/
VMM_V3_1.lha
/
VMM
/
InstallVMM
/
Svenska
< prev
next >
Wrap
Text File
|
1995-05-23
|
14KB
|
411 lines
; VMM Installer script by Martin Apel
; Installation script for VMM 3.1
(set @app-name "VMM")
(welcome " Välkommen till VMM-installeraren\n\n"
"Virtuellt minne för Amigor med 68030, 68040 eller 68020+68851\n\n"
" Upphovsrätt 1993-95 av Martin Apel\n\n"
"Nybörjare installerar allt utom utvecklarfilerna.\n"
"Avancerad installerar allt utan konfirmering.\n"
"Expert installerar allt med konfirmering av allt.\n")
(if (= 0 @user-level) ; then
(set install_level %000111)
;else
(set install_level (askoptions (prompt "Vad vill du installera?")
(help @askoptions-help)
(choices "VMM" "Symboler" "Dokument" "Utvecklarfiler" "Verktyg" "Rexx-program")))
)
(set def_help "\n\nOm du behöver mer hjälp, var god se \"VMM.guide\"\n\n")
(set my_level @user-level)
(user 2)
(set vmmdest
;get destination directory for "VMM"
(askdir (prompt "Välj den låda där du vill placera VMM-programmet (och verktygen).")
(help "Det här bör vara en låda där du lätt kan komma åt VMM "
"via Workbench eller ett skal." def_help
@askdir-help)
(default @default-dest)
(disk)
)
)
(user my_level)
(set copy_vmm (BITAND %000001 install_level))
(set copy_icons (BITAND %000010 install_level))
(set copy_docs (BITAND %000100 install_level))
(set copy_dev (BITAND %001000 install_level))
(set copy_tools (BITAND %010000 install_level))
(set copy_rexx (BITAND %100000 install_level))
; Copy VMM files
(if copy_vmm
(
(set @default-dest vmmdest)
(set vmmtacked (tackon vmmdest "VMM"))
; ask, if we want to overwrite the old VMM if it exists
(set overwrite 1)
(if (exists "L:VMM-Handler")
(
(set old_version (getversion "l:VMM-Handler"))
(set old_ver (/ old_version 65536))
(set old_rev (- old_version (* old_ver 65536)))
(set new_version (getversion "/l/VMM-Handler_4K"))
(set new_ver (/ new_version 65536))
(set new_rev (- new_version (* new_ver 65536)))
(set overwrite (askbool (prompt "\nDu har redan VMM "
old_ver "." old_rev " installerad"
".\nVill du skriva över den med VMM "
new_ver "." new_rev " ?\n")
(help def_help @askbool-help)
(default 1)
(choices "Ja" "Nej"))
)
)
)
(if overwrite
(
; detect the pagesize (4K or 8K)
(set pagesize (run "/tools/ShowPageSize"))
(select pagesize
(abort "Internt fel i installerar-programmet")
((set info_string "En sidstorlek på 4K går att använda på ditt system")
(set default_choice 0))
((set info_string "En sidstorlek på 4K går att använda på ditt system")
(set default_choice 1))
((set info_string "Du kan ha antingen 4K eller 8K som sidstorlek på ditt system")
(set default_choice 0))
)
(set my_choice (askchoice (prompt "\nVar god välj sidstorlek:\n\n"
info_string ".\n")
(help def_help @askchoice-help)
(choices "4K" "8K")
(default default_choice))
)
(select my_choice
(set sizestr "4K")
(set sizestr "8K")
)
; copy the new VMM file to the destination directory
(if copy_icons
; then
(copyfiles (prompt ("\nKopierar VMM till %s." vmmdest))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/")
(choices "VMM")
(dest vmmdest)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierar VMM till %s." vmmdest))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/")
(choices "VMM")
(dest vmmdest)
(confirm)
)
)
; copy the catalog for VMM
(copyfiles (prompt "\nKopierar VMM.catalog till Locale:catalogs/svenska.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/catalogs/svenska/VMM.catalog")
(dest "LOCALE:catalogs/svenska")
(confirm)
)
; copy the new VMM-Handler file to l: and rename it as "VMM-Handler"
(set handler_name (cat "/l/VMM-Handler_" sizestr))
(copyfiles (prompt "\nKopierar VMM-Handler till L:.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source handler_name)
(dest "l:")
(newname "VMM-Handler")
(confirm)
)
; copy the catalog for the VMM-handler
(copyfiles (prompt "\nKopierar VMM-Handler.catalog till Locale:catalogs/svenska.")
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/catalogs/svenska/VMM-Handler.catalog")
(dest "LOCALE:catalogs/svenska")
(confirm)
)
)
)
; ask, if we want to overwrite the old preferences file
; default: do overwrite preferences file
(set overwrite 1)
(if (exists "envarc:VMM.prefs")
(if (= 0 (askbool (prompt "\nDu har redan en inställningsfil installerad.\nVill du skriva över den?\n\n")
(help "Om du inte skriver över inställningsfilen så kommer den att konverteras i nästa steg" @askbool-help)
(default 0)
(choices "Ja" "Nej")))
(set overwrite 0)
)
)
(if overwrite
(
; copy the new preferences file to env: and envarc:
(copyfiles (prompt ("\nKopierar VMM.prefs till Env:\n"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/env/VMM.prefs")
(dest "env:")
(confirm)
)
(copyfiles (prompt ("\nKopierar VMM.prefs till EnvArc:\n"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/env/VMM.prefs")
(dest "envarc:")
(confirm)
)
)
; else
(if (= 1 (askbool (prompt "Formatet på inställningsfilen har ändrats sedan V2.1\nVill du konvertera den?"
(help def_help @askbool-help)
(default 1)
(choices "Ja" "Nej"))))
(run "/tools/ConvVMMCfg")
)
)
)
)
; Copy docs
(if copy_docs
(
;get destination directory for "VMM.guide"
(set doc_dir (tackon vmmdest "doc"))
(if (AND (= 0 @user-level) (NOT (exists doc_dir)))
; then
(makedir doc_dir (infos))
)
(set vmmdocs
(askdir (prompt "Välj den låda där du vill placera dokumenten och AmigaGuide-filerna.")
(help "Det här bör vara den låda där du normalt sett placerar dina AmigaGuide-filer.\n\n"
def_help @askdir-help)
(default doc_dir)
(newpath)
(disk)
)
)
(if copy_dev
(if copy_icons
; then
(copyfiles (prompt ("\nKopierar dokumentationen..."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
(dest vmmdocs)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierar dokumentationen..."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide" "VMM_lib.doc")
(dest vmmdocs)
(confirm)
)
)
; else
(if copy_icons
; then
(copyfiles (prompt ("\nKopierar VMM.guide till " vmmdocs "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
(dest vmmdocs)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierar VMM.guide till " vmmdocs "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/doc")
(choices "VMM.guide" "VMM_Rexx.guide" "VMMTools.guide")
(dest vmmdocs)
(confirm)
)
)
)
)
)
; Copy developer files
(if copy_dev
(
(copylib (prompt ("\nKopierar VMM.library till Libs:."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/libs/VMM.library")
(dest "libs:")
(confirm)
)
(if (exists ("fd:") (noreq))
; then
(set fd_dir "fd:")
; else
(set fd_dir
(askdir (prompt "Välj den låda där du vill placera fd-filen.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(if (exists ("include:") (noreq))
; then
(set inc_dir "include:")
; else
(set inc_dir
(askdir (prompt "Välj den låda där du vill placera inkluderingsfilen.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(if (exists ("lib:") (noreq))
; then
(set lib_dir "lib:")
; else
(set lib_dir
(askdir (prompt "Välj den låda där du vill placera lib-filen.")
(help def_help @askdir-help)
(default "SYS:")
(disk)
)
)
)
(copyfiles (prompt ("\nKopierar VMM_lib.fd till " fd_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/fd")
(choices "VMM_lib.fd")
(dest fd_dir)
(confirm)
)
(copyfiles (prompt ("\nKopierar VMM_stat.h till " inc_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/include")
(choices "VMM_Stat.h")
(dest inc_dir)
(confirm)
)
(copyfiles (prompt ("\nKopierar VMM_lib.lib till " lib_dir "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/Developer/lib")
(choices "VMM_lib.lib")
(dest lib_dir)
(confirm)
)
)
)
; Copy tools
(if copy_tools
(
if copy_icons
; then
(copyfiles (prompt ("\nKopierar verktygen till " vmmdest "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/tools")
(choices "VMMStat" "VMMUsage" "VMMUsageCLI")
(dest vmmdest)
(infos)
(confirm)
)
; else
(copyfiles (prompt ("\nKopierar verktygen till " vmmdest "."))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/tools")
(choices "VMMStat" "VMMUsage" "VMMUsageCLI")
(dest vmmdest)
(confirm)
)
)
)
;
; Copy ARexx scripts
(if copy_rexx
(copyfiles (prompt ("\nKopierar ARexx-programmen till Rexx:"))
(help def_help @copyfiles-help)
(optional "oknodelete")
(optional "askuser")
(source "/rexx")
(choices "stat_on.vmm" "stat_off.vmm" "show.vmm" "hide.vmm")
(dest "REXX:")
(confirm)
)
)